Dim ObjWD,ObjDOC,MyFile

Set ObjWD=CreateObject("Word.application")

set fso=CreateObject("Scripting.FileSystemObject")
set folder=fso.getfolder(".\docs")
set fs=folder.files
'Set MyFile = fso.OpenTextFile(folder.path&"\result.csv",8,True,0)
'fso.DeleteFile(folder.path&"\result.csv")
Set MyFile = fso.CreateTextFile(folder.ParentFolder.path&"\result.csv",True)

for each f in fs
    'msgbox f.path
    if instr(f.path,"~")=0 then
        Set ObjDOC=ObjWD.Documents.Open(f.path)
        'msgbox ObjDOC.content.Text
        'msgbox ObjDOC.BuiltInDocumentProperties("Number of characters (with spaces)")
        MyFile.WriteLine(f.Name&","&ObjDOC.BuiltInDocumentProperties("Number of characters (with spaces)"))
        ObjDOC.Close()
    end if
next

MyFile.close()
msgbox "OK!"
ObjWD.Quit()